home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD017a.dsk / PAL.08081.JENNINGS.JAN.83.A.bas < prev    next >
BASIC Source File  |  2003-06-12  |  3KB  |  33 lines
  1. 10  REM  : WANG INTERFACE HELP REQUEST
  2. 20  GOTO 40
  3. 30  VTAB 23: PRINT "PRESS RETURN TO CONTINUE.";: GET A$: RETURN 
  4. 40  TEXT : HOME 
  5. 50  REM  : INTRODUCTORY "TELETYPER" ROUTINE FROM "TIP DISK #1"  BY BEAGLE BROTHERS.
  6. 60 CURSR$ = "+>": SPEED= 210
  7. 70  FOR I = 1 TO  LEN(CURSR$):CURSR$ = CURSR$ + CHR$(8): NEXT 
  8. 80  HOME : GOSUB 140
  9. 90 A$ = "TO: HELPFUL HARDWARE HACKER SOFTDISK PAL                                        FROM: PUBLIC VOCATIONAL SCHOOL LIBRARIAN                                        SUBJECT: REQUEST FOR INTERFACING INFO.": GOSUB 110
  10. 100  PRINT : GOSUB 140: SPEED= 255: GOTO 150
  11. 110  FOR I = 1 TO  LEN(A$): INVERSE : PRINT CURSR$;: NORMAL :M$ =  MID$ (A$,I,1): PRINT M$;: IF M$ = " "  OR M$ = "."  THEN  FOR J = 1 TO 25 +150 *(M$ = "."): NEXT 
  12. 120  IF M$ < >" "  THEN  FOR J = 1 TO 2:S =  PEEK( -16336): NEXT 
  13. 130  NEXT : CALL  -868: PRINT : RETURN 
  14. 140 A$ = "": FOR I = 1 TO 40:A$ = A$ +"-": NEXT : GOSUB 110: RETURN 
  15. 150  PRINT "   OUR DISTRICT IS JUST NOW LOOKING INTOTHE POSSIBILITY OF INTRODUCING COMPUTERSFOR ADMINISTRATION AND INSTRUCTION."
  16. 160  PRINT : PRINT "   TO SAVE A BIT OF THE TAXPAYER'S BUCK,I WOULD LIKE TO USE A COUPLE OF DONATED WANG MODEL 601 AND 701 PRINTERS WITH    APPLE AND/OR TRS-80 MICROCOMPUTERS."
  17. 170  GOSUB 30: HOME 
  18. 180  PRINT : PRINT "   THE WANG 601 AND 701 UNITS WERE USED WITH THE OLD WANG MODELS 600 AND 700    PROGRAMMABLE CALCULATORS. THEY ARE IBM  SELECTRIC TYPEWRITERS MODIFIED BY WANG."
  19. 190  PRINT : PRINT "   THESE UNITS ARE SAID TO HAVE RS-232  COMPATIBLE INPUTS. I HAVE CONTACTED WANGBUT THEY WILL NOT PROVIDE SPECIFICATIONSOR PINOUT INFORMATION."
  20. 200  PRINT : PRINT "   LETTERS TO MANUFACTURERS OF INTERFACECARDS EXPLAINING OUR PROBLEM HAVE ONLY  BROUGHT LITERATURE...NO REAL HELP!"
  21. 210  GOSUB 30: HOME 
  22. 220  PRINT : PRINT "   IF ANYONE OUT THERE IN SOFTDISKLAND  HAS BEEN SUCCESSFUL IN INTERFACING THESEWANG PRINTERS WITH APPLE, FRANKLIN, OR  EVEN RADIO SHACK COMPUTERS, PLEASE SHAREYOUR EXPERIENCES WITH US."
  23. 230  PRINT : PRINT "   YOU MAY RESPOND THROUGH SOFTDISK OR  DIRECTLY TO:"
  24. 240  PRINT : HTAB 9: PRINT "J. EVANS JENNINGS JR."
  25. 250  HTAB 4: PRINT "LIBRARIAN/MULTIMEDIA SPECIALIST"
  26. 260  HTAB 5: PRINT "CAMDEN COUNTY VO-TECH SCHOOLS"
  27. 270  HTAB 14: PRINT "P.O. BOX 566"
  28. 280  HTAB 4: PRINT "SICKLERVILLE, NEW JERSEY  08081"
  29. 290  PRINT : HTAB 10: PRINT "THANKS FOR YOUR HELP !"
  30. 300  PRINT : VTAB 23: PRINT "  <R>EVIEW REQUEST  <B>ACK TO PAL.MENU   ";: GET C$: PRINT C$: IF C$ = "R"  THEN 10
  31. 310  IF C$ = "B"  THEN  PRINT : PRINT  CHR$(4);"RUN PAL.MENU"
  32. 320  GOTO 300
  33. 330  END